PROGRAM teste
   IMPLICIT NONE
   REAL,DIMENSION(5,6) :: akh2o
   INTEGER :: i,j

   akh2o(01,:)=(/0.02080,0.01550,0.01040,0.00510,0.00200,0.00062/)
   akh2o(02,:)=(/0.17070,0.12910,0.08630,0.04300,0.01710,0.00043/)
   akh2o(03,:)=(/3.69350,3.03920,2.18270,1.18620,0.48190,0.00012/)
   akh2o(04,:)=(/0.09550,0.07170,0.04775,0.02390,0.00970,0.00096/)
   akh2o(05,:)=(/0.56670,0.42490,0.28390,0.14190,0.05620,0.00565/)

   DO j=1,5
      DO i=1,6
         WRITE (*,FMT='(F7.5," ",$)') akh2o(j,i)
      END DO
      WRITE (*,*) ' '
   END DO
   
END PROGRAM teste
